00100	MKMAPLIS(FN,VAR,EXP) ← RPLACD(FN,'EXPR.
00200	(SUBLIS(LIST('X.VAR,'QQQ.EXP,'FFF.FN),
00250	'(LAMBDA (X)
00300	(COND ((NULL X) NIL) (T (CONS QQQ (FFF (CDR X))))))).
00400	CDR FN));